home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ MSOXP User Places 1.xpl < prev    next >
Text File  |  2004-01-29  |  2KB  |  85 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="4"
  3. "COUNT"="2"
  4. "UIPATH"="Program Options\Microsoft Office\MS Office XP\Open/Save Dialog\User Defined Place 1"
  5. "NAME"="Name and Path"
  6. "VERSION"="1.10"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Place Name"
  9. "TEXT 2"="Exact Path"
  10. "DESCRIPTION 1"="Microsoft Office has an "Places Bar" on the left side of its Open/Save dialog."
  11. "DESCRIPTION 2"="You can also add you own folders to this bar. First enter a name for the folder (in "Name"), then enter the exact path to this item (in "Path")."
  12. "DESCRIPTION 3"="To remove a user-defined value, simply clear both fields and apply your changes.
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="Thanks to Nat Gildersleeve [natgild@netptc.net] for the left vs. right bug notice!"
  17. "COMMENT 2"=" "
  18.  
  19.  
  20. '!!!! MAIN FILE (XQ MSOxxx User Places 1.xpl) !!!!
  21.  
  22.  
  23. sPlaceNameID=1
  24. sPCheck="HKCU\Software\Microsoft\Office\10.0\"
  25. sP1=sPCheck & "Common\Open Find\Places\UserDefinedPlaces\Place" & sPlaceNameID & "\"
  26.  
  27.  
  28. Sub Plugin_Initialize 
  29. if RegPathExists(sPCheck) then
  30.    s=RegReadValue(sP1+"Name")
  31.    Call SetUIElement(1,s)
  32.  
  33.    s=RegReadValue(sP1+"Path")
  34.    Call SetUIElement(2,s)
  35. else
  36.  Call Disable()
  37. end if
  38. End Sub
  39.  
  40. Sub Plugin_CheckData(ElementIndex)
  41. End Sub
  42.  
  43. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  44.  s=GetUIElement(1)
  45.  s2=GetUIElement(2)
  46.  Call SetIt(sP1,s,s2)
  47.  
  48.  
  49. End Sub
  50.  
  51. Sub SetIt(Path,Name,Folder)
  52.  if len(Name)>0 then
  53.     'set it
  54.     Call RegWriteValue(Path+"Name",Name,1)    
  55.     Call RegWriteValue(Path+"Path",Folder,1)
  56.  
  57.     Call Logoff
  58.  else
  59.     'remove it....
  60.     s=RegReadValue(Path+"Name")
  61.     if IsEmpty(s)=false then
  62.        'value set... remove it!
  63.        cnt=RegEnumValues(Path)
  64.  
  65.        for i=1 to cnt  
  66.            sName=RegEnumElement(i)
  67.            Call RegDeleteValue(Path+sName) 
  68.        next 
  69.  
  70.        Call RegDeletePath(path)
  71.  
  72.        Call MsgInformation("User defined place removed!")
  73.        Call Logoff
  74.     end if
  75.  end if
  76.  
  77. end sub
  78.  
  79.  
  80.  
  81.  
  82.  
  83. Sub Plugin_Terminate 
  84. End Sub
  85.